home *** CD-ROM | disk | FTP | other *** search
/ Minami 55 / MINAMI55.ISO / Varios / Juegos / 03 - Red_Ninja.swf / scripts / DefineSprite_27 / frame_1 / DoAction.as
Text File  |  2004-10-04  |  884b  |  32 lines
  1. man_h = getProperty("/map/p", _height) / "2";
  2. man_w = getProperty("/map/p", _width) / "2";
  3. wall_h = _height / "2";
  4. wall_w = _width / "2";
  5. man_x1 = getProperty("/map/p", _X) - man_w;
  6. man_x2 = getProperty("/map/p", _X) + man_w;
  7. man_y1 = getProperty("/map/p", _Y) - man_h;
  8. man_y2 = getProperty("/map/p", _Y) + man_h;
  9. wall_x1 = _X - wall_w;
  10. wall_x2 = _X + wall_w;
  11. wall_y1 = _Y - wall_h;
  12. wall_y2 = _Y + wall_h;
  13. if(wall_x1 < man_x2 + "8" and man_x1 < wall_x2 + "8" and wall_y1 < man_y2 and man_y1 < wall_y2)
  14. {
  15.    if(man_x1 < wall_x1)
  16.    {
  17.       setProperty("/map/p", _X, wall_x1 - "20");
  18.    }
  19.    else if(wall_x2 < man_x2)
  20.    {
  21.       setProperty("/map/p", _X, wall_x2 + "20");
  22.    }
  23.    else if(man_y1 < wall_y1)
  24.    {
  25.       setProperty("/map/p", _Y, wall_y1 - "12");
  26.    }
  27.    else if(wall_y2 < man_y2)
  28.    {
  29.       setProperty("/map/p", _Y, wall_y2 + "12");
  30.    }
  31. }
  32.